home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / kaleidoscope.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  984b  |  32 lines
  1. 1 REM "       [176][192][192][192][192][192][192][192][192][192][192][192][192][174]          "
  2. 2 REM "       [221]KALEIDOSCOPE[221]          "
  3. 3 REM "       [173][192][192][192][192][192][192][192][192][192][192][192][192][189]          "
  4. 4 REM
  5. 5 REM   TAKEN FROM VOL 4, ISS 3
  6. 6 REM  OF THE TRANSACTOR MAGAZINE
  7. 7 REM  COLOUR FOR THE C-64 ADDED BY
  8. 8 REM          PAUL ROYLE
  9. 9 REM
  10. 10 PRINT"[147]";:C=0:
  11. 11 POKE53280,0:  REM BORDER BLACK
  12. 12 POKE53281,0:  REM BACKGROUND BLACK
  13. 13 REM ****** SELECT CHARACTERS *******
  14. 14 FORJ=0TO7:READCH(J):NEXT
  15. 15 DATA160,127,102,64,91,93,58,32
  16. 16 REM ******* SELECT COLOURS ********
  17. 17 FORJ=0TO7:READCL(J):NEXT
  18. 18 DATA2,7,6,4,5,8,14,13
  19. 19 SC=1024:COLS=40:LINES=25:CS=54272
  20. 20 MX=INT(CO/2-1):LC=LI/CO:CK=CO-.0001
  21. 21 FORH=3TO50:FORI=1TOMX:FORJ=1TOMX
  22. 22 K=J+I
  23. 23 C=CH((J*3/(I+3)+I*H/12)AND7):Q=CL((J*3/(I*3)+I*H/12)AND7)
  24. 24 S1=SC+CO*INT(LC*I):S2=SC+CO*INT(LC*K)
  25. 25 S3=SC+CO*INT(LC*(CK-I)):S4=SC+CO*INT(LC*(CK-K))
  26. 26 POKEI+S2+CS,Q:POKEI+S2,C:POKECO-I+S2+CS,Q:POKECO-I+S2,C
  27. 27 POKEI+S4+CS,Q:POKEI+S4,C:POKECO-I+S4+CS,Q:POKECO-I+S4,C
  28. 28 POKEK+S3+CS,Q:POKEK+S3,C:POKECO-K+S3+CS,Q:POKECO-K+S3,C
  29. 29 POKEK+S1+CS,Q:POKEK+S1,C:POKECO-K+S1+CS,Q:POKECO-K+S1,C
  30. 30 NEXTJ,I,H
  31. 31 GOTO21
  32.